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This  document  is  released  to  a  NATO  Government  at 
the  direction  of  SACLANT  Undersea  Research  Centre 
subject  to  the  following  conditions: 


•  The  recipient  NATO  Government  agrees  to 
use  its  best  endeavours  to  ensure  that  the 
information  herein  disclosed,  whether  or  not  it 
bears  a  security  classification,  is  not  dealt  with 
in  any  manner  (a)  contrary  to  the  intent  of 
the  provisions  of  the  Charter  of  the  Centre, 
or  (b)  prejudicial  to  the  rights  of  the  owner 
thereof  to  obtain  patent,  copyright,  or  other  like 
statutory  protection  therefor. 

•  If  the  technical  information  was  originally 
released  to  the  Centre  by  a  NATO  Government 
subject  to  restrictions  dearly  marked  on  this 
document  the  recipient  NATO  Government 
agrees  to  use  its  best  endeavours  to  abide  by 
the  terms  of  the  restrictions  so  imposed  by  the 
releasing  Government. 
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1.  Introduction 

There  is  an  ever-present  need  in  any  major  research  organization  to  be  able  to 
quickly  and  easily  display  graphical  information.  At  SACLANTCEN  the  SONDA 
[1,2]  system  was  used  in  past  years  to  display  such  oceanographic  information.  This 
report  presents  two  new  computer  programs  which  provide  similar  plotting  capabil¬ 
ities  to  that  provided  by  the  SONDA  system  for  areas  located  in  the  Mediterranean 
Sea.  The  advantages  offered  by  these  new  programs  are  the  increased  resolution 
and  the  creation  of  intermediate  plotting  matrices  which  can  be  used  in  modelling 
applications.  The  MAKE-MAP  and  MEDMAP  programs  were  originally  developed 
to  satisfy  the  requirements  of  an  existing  model  in  use  at  SACLANTCEN,  nam.ly 
the  Mediterranean  shipping  distribution  model  [3]|  however  they  can  easily  And 
application  in  other  areas. 

Section  2  gives  three  examples  of  map  production  using  the  available  database,  these 
examples  include  plots  of  the  entire  Mediterranean  Sea,  the  central  Mediterranean 
including  '.he  islands  of  Corsica,  Sardinia  and  Sicily  as  well  aa  the  Italian  coast¬ 
line  and  Anally  the  Aeg «an  Sea.  Section  3  describes  the  MAKE-MAP  program  and 
provides  information  on  how  the  pre-plotting  data  matrix  is  created  and  Sect.  4 
describes  the  MEDMAP  program  and  lists  the  various  output  devices  supported  by 
the  software.  The  two  programs  have  been  written  in  VAX  FORTRAN  and  are 
currently  running  on  a  VAX  8600  with  the  VAX/ VMS  version  4.6  operating  system. 
They  are  listed  in  Appendix  A  and  Appendix  B,  respectively.  The  library  plotting 
routines  are  all  taken  from  the  commercially-available  graphics  package  UNIRAS. 
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2.  Some  sample  maps 

The  examples  shown  in  this  section  are  designed  to  show  the  usefulness  and  ease  of 
operation  of  the  two  programs.  The  first  example  produces  a  map  of  the  whole 
Mediterranean  Sea.  It  makes  use  of  the  entire  mapping  database  defined  from 
(30oN,6oW)  to  (46“N,37°E)  in  2'  steps.  This  database  was  originally  created  from 
a  series  of  10  charts  of  the  Mediterranean  [4]  drawn  using  a  Mercator  projection  at 
a  scale  of  1: 1 000000  at  38°N. 

In  order  to  generate  one  of  these  maps,  the  user  should  follow  these  steps  in  VAX/ 
VMS  DCL: 


1.  I  DEFINE  DATA  Deviee.l : [Directary.il 

2.  I  RON  Device-2:  [Dlrectory.JlNME JUP 

3.  «  RON  Device-2: [Direct ory.2]NEDNiP 


Note  that  in  step  1  the  user  must  define  the  logical  name  ‘DATA’  to  point  to  the 
directory  which  is  to  contain  the  intermediate  data  matrix  created  by  the  program 
MAKE-MAP.  Step  2  will  run  the  MAKE-MAP  program  which  creates  the  intermedi¬ 
ate  data  matrix  (see  Sect.  3)  and  step  3  will  run  the  MEDMAP  program  which  plots 
this  data  matrix  (see  Sect.  4). 
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Example  1 

Figure  1  wu  generated  by  entering  the  following  data  in  response  to  the  prompt* 
iaiued  by  program  MAKE  .MAP: 


Cater  caordlaate*  of  lower  left  cell  (ala.  30N06V):  30M06W 
Cater  coordinate*  ol  upper  right  cell  (aax.  461370:  46K3TC 


This  cauae*  the  MAKE  .MAP  program  to  read  the  entire  databaae  which  contista 
of  688  separate  input  flies.  Each  input  Ale  corresponds  to  a  1°  x  1°  area  of  the 
Mediterranean  Sea  and  contains  900  elements  (-1.0  or  1.0)  contained  in  30  records 
of  30  elements  per  record.  The  plotting  i*  done  by  program  MEDMAP  on  the  user 
selected  output  device. 
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F(f.  1.  The  Mediterranean  Sea. 
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Example  2 

Ex  Ampin  2  reads  a  subsection  of  the  database  which  contains  the  islands  of  Corsica, 
Sardinia  and  Sicily  as  well  as  the  Italian  coastline.  The  water  masses  include  the 
Tyrrhenian  Sea,  the  Ligurian  Sea  and  the  Adriatic  Sea  as  well  as  the  northern 
portion  of  the  Ionian  Sea.  This  area  is  defined  from  (366N,7°E)  to  (46°N,20°E)  and 
so  the  following  data  was  entered  in  response  to  the  prompts  issued  by  program 
MAKE-MAP: 


Kater  coordinates  of  loser  left  cell  (sin.  30N08W):  36H07E 

Enter  coordinates  of  upper  right  call  (nax.  48H37K):  46H20B 


Note  that  in  this  example  only  130  out  of  the  total  688  input  files  are  used  when 
generating  an  intermediate  plotting  matrix.  The  resulting  plot  is  shown  in  Fig.  2. 


7  9  11  13  15  17  19 


46 
45 
-44 
-43 
-42 
-41 
-40 
-39 
-38 
-37 

-jyj  r  ■  '  ■  '  '  i  '  '  ’  '  •  i  ■  ’  ■  ■  1  i  '  ■  ■  '  ’  i . i . i  ■  ■  “36 

7  9  11  13  15  17  19 

Longitude 

Fig.  2.  The  Centra!  Mediterranean. 
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Example  3 


Example  3  again  uses  a  eubiection  of  the  database  and  illustrates  some  of  the  fine 
detail  available  at  a  resolution  of  2  min.  The  map  area  is  defined  from  (360N,22®E) 
to  (42°N,29°E),  and  to  the  following  data  was  entered  in  response  to  the  prompts 
issued  by  program  MAKE-MAP: 


Enter  coordinates  ol  loser  left  cell  (Bln.  30S06V) :  3&N22E 
Eater  coordinates  ol  upper  right  call  (aer .  4SH3TE) :  42E29K 


Note  that  in  this  example  49  out  of  the  total  688  input  files  are  used  when  generating 
an  intermediate  plotting  matrix.  The  resulting  plot  is  shown  in  Fig.  3, 
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Fig.  3.  The  Aegean  Sea. 
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3.  The  MAKE-MAP  program 

The  function  of  the  MAKE-MAP  program  is  to  create  a  data  matrix  in  a  form  which 
is  suitable  for  subsequent  plotting  with  the  MEDMAP  program.  There  are  two 
important  advantages  to  using  such  a  two-stage  process  in  obtaining  plots.  The  first 
advantage  is  plotting  speed  since  each  subsequent  plot  (via  MEDMAP)  can  be  done 
without  having  to  reaccess  the  full  database.  This  is  useful  for  example  when  the 
user  wishes  to  preview  the  plot  on  his  terminal  before  obtaining  a  hard  copy  (on 
a  colour  plotter,  laser  printer,  etc.).  A  second  advantage  is  that  an  intermediate 
landmass  matrix  is  produced.  This  matrix  is  made  up  of  (2*  x  2')  cells  containing 
either  a  -1.0  (land)  or  a  0.0  (water).  Landmass  matrices  of  this  type  are  often  used 
in  modelling  applications,  for  example  when  modelling  shipping  movements  [1],  or 
modelling  target  locations  [5]  and  could  find  future  application  in  modifications 
to  such  programs  as  the  RANDI-2  ambient  noise  model  [6]  where  the  position  of 
landmasses  could  be  used  to  identify  the  end  points  of  the  transmission  loss  function. 
The  organizational  layout  of  this  program  is  shown  schematically  in  the  flow  chart 
given  in  Fig.  4. 
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Fig.  4,  A  flow  chart  of  program  MAKE_MAP. 
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4.  The  MEDMAP  program 

This  program  represents  the  second  stage  of  map  production  and  is  primarily  a 
plotting  routine  designed  to  allow  the  user  to  produce  output  on  the  device  of  his 
choosing.  The  program  uses  a  2D  contour  mapping  routine  which  supports  10  levels 
of  interpolative  smoothing.  The  presently  supported  devices  at  SACLANTCEN  are 
presented  to  the  user  as  a  ‘form’.  A  copy  of  this  form  is  given  in  Fig.  5. 


HKDHAP  VI. 0  Snide V  V2.0 

Hardcopy  devices 

CRT  devices 

COL  Tektronix  4691  A3 

COL4  Tektronix  4691  A4 

VUG  Tektronix  4692  Vugraf 

PRX  Pcintronix  OPER-room 

PKXU  Printronix  user  area 

CCP  Calcoap  51 OS 

La50  LA50  Printer 

TO 3  LN03  to  USRSLASER 

VTT  Local  Vt200-series 

LTKK  Local  Tek4lXX-aerles 

4105  Host  Tek4105 

NEWS  DS1  news  of  01-NOV-1987 

INFO  UNIRAS  Info 

DELA  Delate  completed  plots 

UTIL  Soon  available 

EXIT  Terminates  image 

Select  output  devices  (  Press  PF2  for  help  ) 

Fig.  5.  The  plotting  options  form. 


As  before,  the  organisational  layout  of  the  program  is  shown  schematically  in  a  flow 
chart  (Fig.  t>). 
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8«I«Ct  output 
device 


Cheek  if  input 
is  within  limits 


Fig.  6.  A  flow  chart  of  p:ogrem  MED  MAP. 
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Appendix  A 
MAKE-MAP,  a  FORTRAN  lilting 

1  PROGRAM  MIKE.MIP 

3 

3  C  PItOG RAM  DESCRIPT10K : 

4  C 

c  C  Ctutu  file  DATA:  LARDMASS.DAT  from  data  taJian  trom 

o  C  use :  [SCRIHGRR .  VORK}  .  Th*  output  ill*  *111  contain  coaatlln* 

7  C  data  tor  a  aalactad  araa. 

«  C 

9  C  AUTHORS: 

111  C 
11  C 

li  C  Alox  Trangalad  A  Paul  Scrlmgar 

13  C  SACLAMT  Ohdaraaa  Aaaaarch  Cantor, 

14  C  V.  San  Bartolonao  400, 

15  C  10030  La  Spoil* ,  Italy 

io  C 

17  C  CREATIOK  DATE:  Siuuiar  1097 

la  C 
IB  C 
io  C 

31  C  C  1  1  f  fi  t  LOG 

33  C 

33  C  Oat*  /  Van*  I  Daaeriptlon 

34  c - + - + - - 

15  Cfchanga.entryJ 

3G  C 
17 

la  COMMOA  /P OS/  UT1  .UTJ.Uei  ,LMG3 

19 

30  CHARACTER*  1  CSTR ,  1ST* ,  ESI* ,  VST* 

31  CHARACTER *3  STRLAT ,  STRLBG 

33  CHARACTER*10  PROMPT 

33  CHARACTER* A0  OUTPUT.riLE.BUrPl  .BUm.Lin.PIL 

34 

35  IMTECER»4  PARSE_POS,ARRAT(30,J0) 

30 

37  REiL  Mi Till (1300,490) 

3a 

39  C  - 

4«  PROMPT  -  '(9,11,1) ’ 

41  CSTR  *  'C» 

43  OUTPUT.riLS  -  ’DiTi.lamAaaaa' 

43 

44  C  - - 

45  oPRjr  (uwn-»,riLi*ovTrm,riiz,STATus*’nv’ , 

4»  1  FORM*  'OMFORMiTTSD',  ERE 3000) 

47 

4t  10  VRITS( 9, PROMPT)  'Enter  coordinate*  of  lorar  left  call 

49  1  (aln.  SOMOeV) :  ' 

50 
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61 

63 

63 

64 

65  C 
5fl  20 

57 

68 

50 

00 

01 

02 

03  C 
04  C 
06 
GO 
07 
08 
00 

70  C 

71 
73 

73 

74 

75 

76  C 

77 

78 

TO 

80 

81  C 

83 

83 

84 

85  C 

86 

87 

88 
80 
00 
01 
02 
03 
04 
05 
00 
07 

08  C 

30 

100 

101 
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11140(6,  '(A)  >,EBD*10)  BUFFI 
ISTAT*PAHSE.P0B(BUFF1  ,1) 

i fUbtat.bb  o)  corn  10 


niTB(«,PBOHPT)  'filter  coordinate*  of  upper  right  call 
1  (*u .  48#3fS);  ’ 

HBAD(6,'(A)',BMD*20)  BUFFS 
ISTAT*PiBSE_ PCJ ( BUFFS , 2) 

IF(ISTAT.BE.O)  GOTO  20 


Calculate  no.  of  call*  in  *  direction  (longitude,) 


1 0,CELU*  (LMG2-UI61)*1 

B0.ELEHI*MO.CBLLI*30  >30*30  date  pointe  in  each  cell 

Calculate  no.  of  cell a  in  y  direction  (latitude) 

MO _  C*Ltr«(U  T2-UT1 )  *  1 
B0,SLBHT*K0_CBUT*30 


Set  Mini!  counter  to  0  in  x  and  y  direction 

1HAT1*0 

IMATT*0 

Start  reading  data  and  fill  MATHIS 
IT0TAL.FILES=(LATS-LATl*l)*(UG2-LtGl*l) 


DO  110  LAT*LATi  ,LAT2 

DO  100  LHG-LBG1 ,LMGS 

ICm_FIL=ICUB,FIL+l 

IF(LtG.LE.O)  THEM 

WHITE (FIL, 800)  UT.LBGt-l 

ELSE 

I mm(FIL,801)  LAT.LIG 
EtD  IF 


Open  cell-file  and  fill  up  array  *ith  30*30  elenanta 

0PEI(UCIT*10,  FILE *  ’  USB :  [SCHIHGEH .  WHUfJ  ’ //FIL, HEADOtLT, STATUS*  <0U) ' 

1  EBHmBOO) 


UBITE(8 , 888)  til(i:lC),  ICTI.FIt ,  ITOUL.FILES 
DO  11*30,1.-1 

UAD(10.’(A*0)’)  LIBS 
DO  JJ*8,3S 

HUD(11BE(JJ:  Jl)  ,'(11)')  AEHATUJS .  II) 
USD  DO 
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111  CLOSKOIIT*  10, STATUS* ‘KEEP’) 

111 

in  C  Writ *  the**  olutMl  to  til*  big  array 

114 

its  DO  11*1,30 

no  DO  Jj’t.SO 

nr  IUniI(JJ+IIUTX,lI*IIUTT)=UUUT(JJ,II)*-l. 

u*  US  DO 

no  US  DO 

110  IHATX*IKATX*30 

111 

ni  iso  comm 

111  IHATX‘0 

114  IIUTT*IHiTT+30 

ne  no  comm 

110 

11T  C  - 

11* 

no  oso  comm 

IK) 

in  C  VriC*  rang*  Indorsation  to  output  file 

ill 

in  U»rTX(»)  I0.UMX 

n4  niTX(»>  to.* tur 

lie  nm(t)  LMOt 

lie  WUTEfe;  LMQ2+1 

11T  war  TIC  9)  L4T1 

iu  nm(9)  un*i 

110 

140 

141  rarri  C#J  (dunix(x,j),i*i,to_KLBix),j*i,Ko,sLS»r) 

141  CLOU  (U»IT*0, STATUS* ’KEEP’) 

141  STOP 

144  C  - 

141 

i4«  »oo  mm(e,,(ii,s)0  ’ekeok  orstire  file  v/fil 

14  r  STOP 

14*  C  - 

140 

ten  Nt  STOP  'Crror  opening  outfile' 

in 

in  C  - 

in  990  TOJUUrf ’iCtrront  file  ',410,  'i#  no.  ',i3,'  out  of  '.id,'  file*V 
114  900  F0MMAT(1X,  ’C>,  12.2,  12.2,  'W'l 

lie  001  FOUUTdX,  'C ,12,2,  't' ,12.2,  ’E’) 

150 

1ST  US 

110 

150  linen  rvMcrioi  phese_  pos  (lo*b  urr ,  i  ttfe) 

l?o  C  KOUTIKS  DESCE1PTI0I: 

101  C 

101  C  ni*  routine  par***  tAe  coordinate  »***d  In  LOVBUFF 

toi  C  If  value  i*  illegal  par**.po**i  *1«*  par**.po**0 

104  C  1TTTI  *p4 >cifl*(  if  r*  ar*  reading  first  or  **cond  value 

loo  C  If  parae.po*  succeed*,  the  conson  bloc*  POS  1*  loaded  vita  tile 

too  C  appr opiate  vain** 

iot  C 
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10* 

100 

170 
1 T 1 

171 

173 

174 

175 
170 
177 
17* 
170 
1*0 
181 
1*1 
1*3 
1*4 
1*5 

:*o 

1*7 

1*8 

1*0 

100 

101 

103 

103 

104 

105 
196 
107 
10* 
100 

300 

301 
303 

303 

304 

305 
2»>6 
307 
20* 
300 
210 
311 

313 
213 

314 
3 1C 
310 
317 
31* 
310 
33L 
331 

232 

233 
224 
325 
336 


AUT/fORS : 


Aim i  Tr  angeled  At  Paul  Scrimger 
SACLABT  Under te a  Rmammrch  Can tar, 
V.  San  fiartolonao  400, 

10028  La  Spaala,  Italj 


CREATIOB DATE: 


Summer  199T 


Data 


C  H  A  B  G  Z  LOG 
I  Sana  /  Da* cript Ion 


C [change _ entry] 
C 


C 

BO 


COMMOB  / POS /  LAT1 ,L4T2 , LMG1 , LBG2 
CHARACTERHO  BOFF.LOWBVFF 


PARSK„POS=0 

CALL  3TR9UPCASB(BUFTtL0VBUFF) 


•Convert  tiring  to  uppercate 


READ(B0FF(1:2),’(I2)’,ERR-6Q)  ITEMPi  (Read  integer  rein* 
READ(BUFF(4:6),’(I2)’tERR^60)  1TBMP2 

IF  (BVFF(3:3).BB.’B’)  GOTO  SO 

IF  ((BUFF(6:6).BE.’E>).ABD.(BVFF(9:9).BE.’V*))  GOTO  60 


PARSE_P03*0  f Everything  ok 
IF(ITTPE.EQ.t)  THEM 
UTlxITKNPl 
LBGt-ITKRP2 

IF(BCFF(6:9).BQ.’V>)  LBGl*LBGl*-t 

ELSE  IF ( ITTPE .EQ.2)  THEM 

LAT2* ITEMPI -1 
LMG2"ITEHP2-i 

iF(BVrF(0;0).EQ.>y*)  LKG2*L»G2*-i 


i29MAf-X997 
1 29-HA7-t997 


ELSE 

WRIT B(6>’(ll,i)>)  ‘Illegal  typo  epecitied  - 
1  ChacJc  /our  program  /  tf  ’//CHAR  (7) 

STOP  *  t am  1  nation  on  arror ’ 

EBD  IF 
RETURB 


FAR3B_P0S-1  ! Invalid  input 

VRITB(9t’(tXtA)’)  ’Illegal  coordinate  tpecified  - 
IPleate  reenter  I  It *//char(7) 

RETIRE 


EBD 
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i 

3 

3 

4 
6 
0 
7 
• 
0 

in 

u 

n 

13 

14 
ID 
10 
IT 

la 

10 

30 

31 
33 

33 

34 

35 
3G 
3T 

36 

39 

30 

31 
33 

33 

34 
36 

36 

37 
34 
30 

40 

41 
43 

43 

44 
48 

46 

47 

45 
40 
fO 
81 
83 


Appendix  B 


MEDMAP,  e  FORTRAN  Hating 

PROGRAM  MEDMAP 

C 

C  PROGRAM  DESCRIPTIVE: 

C 

C  Thia  program  plot a  t ha  cotiUiot  data  contained  in  tiia  fila 

C  DATA: LAHDMASS.DAT,  which  1*  cromt ad  by  MAKE_MAP.  For  additional 

C  indorsation  plaaaa  ratar  to  aaparata  documentation. 

C 

C  LinJc  thia  program  uaing  t ha  following  command: 

C  $  LIRK  MEDMAP,  US6 :  [TRARGELMD . SUDS]  RUTIRES /LIB , 3L : UMXRAS/L1J 

C 

C  AUTHORS: 

C 

C  Alex  Trangalad  A  Paul  Scrimgar 

C  SACLAMT  Undaraaa  Raaaarch  Cmntar, 

C  T.  San  Bartolomao  400, 

C  19026  La  Sparia,  Italy 

C 

C  CREATIO R  DATS:  Summar  1987 

C 

C 

C  CHARGE  LOG 

C 

C  Data  I  Rama  I  Daacription 

C - * - 4 - 

Cfchang#..  an  tryj 
C 


IRTEGER 

2 

2 

2 


STATUS, 

rw.sra, 
nr.  add*, 

MSD1C0L 


l Statu*  raturaad  by  my&tam  call* 
(Sift  of  virtual  memory  (FM/  naadad 
f Starting  addraaa  of  tha  TM 
1  Declaration  of  tha  sale  part 


IRTEGER 

2 

2 


L1D$GET_TM, 
LIDRFRU.fM, 
LIBRSWOV. fP 


ISymtam  routiaa*  -  for  docunantation 
fame  VAX/ WHS  Sya tarn  Sarvicaa  reference 
!  guide 


CALL  LID$IAIT„7IHER 

CALL  GROUTS ( ’LIST  *  )  f Prompt  for  output  aarica 


c  - - - 

C  Open  tha  LARDMASS  file  to  find  tha  nmbar  of  alamamta  la  it 

OFKV  (  URXT*9 ,  ERR*9999 ,  FILE*  ’DATA  i  LARDMASS  .DAT’ . 

1  STATUS*  ’OLD’  .FORM- >  OR  FORMATTED  ’  .RZADOBLY) 

READ  (9)  LI  IRo .  a lament  a  in  X 

READ  (9)  L2  tfo.  of  alamamta  in  T 
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I  Clou  tha  LAEDHASS  ilia 


CLOSE  (UE1T*9, STATUS* 'KEEP') 


Calculate  tii«  aaount  of  EM  va  naad  for  th la  fi la.  Va'll 
naad  4  bytas  tor  avary  alaaant  In  tha  matrix. 

VH_SIZE*L1*L3*<  'Six*  va  will  naad 

f.llocata  tha  fH 

STATUS  "LIB  tGET_  TH(YH_SIZE,  VH_ADDR) 

tr<  .EOT. STATUS)  CALL  LIBESIOEAL(XEAL(STATUS)) 

Call  th a  map  drawing  part,  paaaing  tha  atartlng  addraaa 
and  alma  of  tha  VH  that  va  allocatad 

3TATUS-HSD1C0L(XVAL(TH_ADDA) , YH.SIZE) 

IF(  .EOT. STATUS)  CALL  LIBt3ICEAL(XYAL(STATUS)) 

Daalloeata  tha  TH 

sr4nrs«ixh*nuti_«f(rn_srz£,  th.adda) 

1F(. EOT. STATUS)  CALL  L1B$SICEAL(XYAL(STATUS)) 

Tarainata  UEIAAS 

CALL  GCLOSE 

CALL  LIB9SH0V.TIHEB 
CALL  EXJT(O) 


STOP  'Formal  auccaaaXu 1  tanination' 
STOP  'Error  opanlng  landmaaa  databaa 


XITC8U  FVECTIOE  HSDICOL(Z.IZSIZS) 


01HEESI0E  Z(laalxa) , 
t  Z(BOO), 

1  T(000) 

DZHUSIOB  rz(  3) 

CSAMACTVflS  Fill 
CBABACTEBalS  ESTMIEG 

CSABACm *1  T ESEO 


' TH  araa  containing  shipping  matrix 
I Tha  X-  and  7-array  ara  uaad  with 
/tha  ahip  (or  aubj  tracha 
IClaaa  Xialt  array 

!F 11a  naaa  at ring 


LOGICAL  SMCSTOhE  t GRID 


3MST0U  •  .FALSE 
OBID  «  .FALSE. 
XOB*30. 

701*30 . 


/Sat  flag  it  trims  aagaant  atoraga  la  on 


IPreapt  tor  tha  aiaa  in  tha  t  diraction 


Saolantcen  SM-ur 


in  CALL  dtllodttr  ( 

m  1  ’Enter  XS  in  ax.' 

113  1  '300.', 

lw  i  nsnimi) 

us 

tie  EEAD(9STEI9C,*)  xs 

117 

tit 

tie 

1JO 

m  if  (xs.sq.o.)  mu 

m  niTt(«,*)  ’is  sot  snciFiu  -  osixa  default' 

113  XSm200. 

114  ELSE 

115  WITE(«,»>  'IS  SPECIFIED  -  •  ,XS 

no  EXP  IF 

nr 

lit  Call  dfltodat r  ( 

tie  1  'Do  you  >ut  to  plot  a  grid  T/ti 

130  1  >r\ 

131  1  TE3M0) 

131 

133  if((tesso.eq.  ‘T').at.(rxsto.tQ-'r'))  oeid  «  .ntra. 

134 

133  CELL  dailodatr  f 

lie  1  'Do  you  not  to  craata  a  OXIPICT  /11a  T/t: 

137  1  */’, 

i3t  1  .5310) 


130 

140  IF((TUMO. ED.  ’T').m.(TUXO.Etj.  >y'))  SK9ST0U  «  .1*175. 

141 
141 

143  »S«IS*0 . 8 

144 

143  ITX-M 

140  ITT"! 

147 

lit  C  Dafina  only  ono  date  liait  at  vo  rant  to  ufo  too  colour*  only 

140 

too  XX(l)*-0.9 

101 

ioi  C  - 

to]  C  Aaad  binary  file 

104 

103  0FU(niT-9,m’9999,riLS*  ‘DATAiUXDMASS  .DAT', 

lot  1 JTX  TO3-  "JLO  ’ ,  POJUf*  ’  OttOUA  TTKD 1 ,  AEADOELT) 

137 

lot  M1#  (9)  mix 

lot  Ml#  (9)  HUT 

no  Ml#  (81  LE01 

ioi  Ml#  <»;  LE03 

it]  MEAD  (9)  LAT1 

103  Ml#  (8)  UT2 

104 

lot  U03-LX03 

lot  LAT7‘LAT2 

107 

tot  (Print  Inio  to  taraiaal 

109 
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i 


SACLANTOEN3M-J0’ 


1  TO 
171 

173 

in 

174 

175 
170 
177 
17# 

170 

iso  c 
ill  C 
163 
1» 

184 

ISO 

ISO 

117 

its 

180 

a  oo 

191 

103 

193  C 

104 
lot. 

ICO 

19T 

108 

109  C 

300 

301 
303 

303  C 

304 

305 
30G 

30T 

308  C 
300  C 

310 

311 
313 

313 

314 

315 
318 

317 

318 
310 

330 

331 

333  C 

333 

134 

3J5 

330 


wum«,«0o;  wn 

wnm(€t80i)  nur 

V8ITS(€,803)  LMG1 

v*m(6>803)  mas 

V*ITE<e>804)  UT1 
V*ITK(6,806)  UTS 

HEAD  (9)  (Z(J)d*l.HAII*KAXT) 
CLOSE  (UEXT*9, STATUS*  ’KEEP*) 


Initial*  WfflUS 

CALL  COPE! 

CALL  GASSET 

IF  (SEQSTOUt)  TEEM 

miTE(S,»)  'Stgmtn*  atoraga  if  ACTItV 
nXTE(».*)  ;Op*ainf  HjMit  til a  911  ’ 
CALL  CSEOCn(l) 

RED  IF 


Sat  up  elaaa  Unit*,  uaar  coortfrnat*  fjritu  and  riaaport 
CALL  UXCLW.l.O) 

CAIL  0LIHIT(FL0AT(LEC1)  ,FLCAT(LEG2)  ,FL0AT(UT1>  ,FL0AT(LAT2)  .0.  ,0.) 
CALL  aTFOKTdOE.TOK.XS,  13) 

Sat  colour  ot  contourlino*  to  anti -background 
CALL  OtOCOL(lf 

Sot  saootklng  laral  and  plot  contour  line* 

CALL  GSKTB(9) 

CALL  «c«ur (t, EASE, HAST) 

Tarninata  6C1I2F 
And  draw  aria 

irwrw 

irr-irrM 

CALL  0miT(FlM1(Lt91)  ,FL0AT(LHG2)  ,FLOAT(LATt)  ,FL0AT(LAT2)  ,0.  ,0.) 
CALL  GTICKH(ITS) 

CALL  QAZlSd , rtwrfl««l ),0., FLOAT(LH02) ,  'Longitudad '  * 

call  otic man)  „  „ 

CALL  04irS(2,rLOiTfLiTl),0.  ,FUJATfLin>,  ’Latitud**'.) 

Draw  tacondarj  aria 

CALL  GAX0MI(FL0AT(UC7)  ,FLOAT(LATX)) 

call  nsaas(m) 

CALL  0ASIS(-2.rL0AT(UTl)  ,G.  ,nOAT(UT2) ,  'tl) 
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air 

lie 

210 

330 
231 

133 
733 

134 
236 
236 
337 

331 
330 
2\0 
341 
242 

343 

344 

346 
246 

347 
241 
240 
360 
381 
363 
183 
384 
288 
286 
387 
28® 
260 
300 
201 

303 
203 

304 
300 
266 
307 
300 
200 
270 
2Y1 
272 

I’J 
274 
375 
370 
277 
2  VO 
370 
300 
201 
202 

303 

304 

305 


CALL  GAXORI (FLOAT (IMG  1 )  tFL0AT(!*AT2) ) 

CALL  GTICKM(ITX) 

CALL  GAXIS(~t ,FL0A7(LMQi) ,0. ,FL0AT(L3G2) , >$>) 

CALL  QEOCQL(i) 

IF  (GRID)  CALL  QGRID(ltl) 

CALL  GUMDMF(999.999I31) 

IF  (3EQ3T0R+)  CALL  GSEGCL(l) 

CALL  GCHARJ(O) 
madlcol*l 

RETURM 


900  FORHATdX,  ’Mo.  point*  in  th •  X-diraciion:  \I.i 

•OJ  FORHAT(lXt  ’Mo.  point®  in  th*  T-dirmetion:  \I) 


902  FORHATdX,  ’Longitud*  minimim  :*$I) 

903  FOMArdX,  ’Longi tud#  maximum  : » ,  X) 

904  FOMATilX,  ’Latitud •  aininu*  ;  M) 

•05  F0JUf4T(iX,  'Latitud#  aaxlnuM  :\X) 


9999  STOP  ' Error  during  road  of  track  data  baa#' 

9999  STOP  ’Error  opining  landaaao  data  baa#' 

UD 

SUBEOUTIME  D3I9BD3TR  (PROMPT,  DEFAULT ,  AM SVER) 

C 

C  ROUTIME  DESCRIPTI03: 

C 

C  Thia  rout  in#  vritaa  PROMPT  on  th#  taminai,  and 

C  allow*  til#  ua#r  to  ua#  VHS}*  Horn  adlting  function#  to 

C  modify  or  raplac •  til#  default  anatrar 

C 

C  AUTHORS: 

C 

C  Alax  Trongalad 

C  SACLAMT  Undo cam*  Ra a  a arch  Cantor, 

C  V.  San  Bartolomao  4 00, 

C  19029  La  3p#sia,  Itily 

C 

C  CREATIOM  DATE:  Hay  1999 

C 

n 

C  C  B  t  M  Q  S  LOO 

C 

C  Oats  I  faa«  /  Description 

C - + - ♦ - 

C(chHf*.wtqr] 

C 

csi*ACT«»f»;  rumn, 
i  Dinar, 

1  itSbVt 

COHBO0  /SHOW/  ID 

IF  (ID.0E.O)  corn  5 
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IM 

nr  CALL  3MCiCASATE_ VIATVAL_KETBOAAD ( ID) 

»t  S  CALL  SH0tAEAD_3TATKG ( ID , AKSVKK , PAOMPT , 

3*0  1  ...... , DEFAULT) 

390  AST WUf 

291  SMV 

391 
293 


] 


. 


Initial  Distribution  for  SM-207 


Ministries  of  Defence 
JSPHQ  Belgium 
DND  Canada 
CHOD  Denmark 
MOD  France 
MOD  Germany 
MOD  Greece 
MOD  Italy 
MOD  Netherlands 
CHOD  Norway 
MOD  Portugal 
MOD  Spain 
MOD  Turkey 
MOD  UK 
SECDGF  US 


2 

10 

0 

8 

15 

11 

10 

12 

10 

2 

2 

5 

20 

68 


NATO  Authorities 

Defence  Planning  Committee  3 


NAMIL.COM  2 

SACLANT  3 

SACLANTREPEUR  1 

CINCWESTLANT  / 

COMOCEANLANT  1 

COMSTRIKFLTANT  1 

CINCIBERLANT  1 

CINCEASTLAN7  1 

COMSUBACLANT  1 

COMM  AIRE  ASTL  ANT  1 

SACEUR  2 

CINCNORTH  1 

CINCSOUTH  1 

COMN  AVSOUTH  1 

COMSTRIKFORSOUTH  1 

COMEDCENT  1 

COMMARAIRMED  1 

CINCHAN  3 


SCNR  Belgium 


SCNR  Canada 


SCNR  Denmark 


1 

1 

1 


SCNR  Germany  1 

SCNR  Greece  1 

SCNR  Italy  1 

SCNR  Netherlands  1 

SCNR  Norway  1 

SCNR  Portugal  1 

SCNR  Turkey  1 

SCNR  UK  1 

SCNR  US  2 

French  Delegate  1 

SECGEN  Rep.  SCNR  1 

NAMILCOM  Rep.  SCNR  1 

National  Liaison  Officers 
NLO  Canada  1 

NLO  Denmark  \ 

NLC  Germany  1 

NLO  Italy  1 

NLO  UK  1 

NLO  US  i 


NLR  Belgium 

1 

NLR  Canada 

1 

NLR  Denmark 

1 

NLR  Germany 

1 

NLR  Greece 

1 

NLR  Italy 

1 

NLR  Netherlands 

1 

NLR  Norway 

1 

NLR  Portugal 

1 

NLR  Turkey 

1 

NLR  UK 

1 

Total  external  distribution 

250 

SACLANTCEN  Library 

10 

Stock 

20 

Total  number  of  copies 

260 

